home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / led / ledvb25 / ledmdi.frm < prev    next >
Text File  |  1996-01-16  |  2KB  |  100 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "LED Custom Control"
  4.    ClientHeight    =   5655
  5.    ClientLeft      =   1290
  6.    ClientTop       =   2610
  7.    ClientWidth     =   8835
  8.    Height          =   6345
  9.    Icon            =   LEDMDI.FRX:0000
  10.    Left            =   1230
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1980
  13.    Width           =   8955
  14.    WindowState     =   2  'Maximized
  15.    Begin Menu mnu 
  16.       Caption         =   "&Demo"
  17.       Index           =   0
  18.       Begin Menu demo 
  19.          Caption         =   "&Properties"
  20.          Index           =   0
  21.       End
  22.       Begin Menu demo 
  23.          Caption         =   "&Styles/Bitmaps"
  24.          Index           =   1
  25.       End
  26.       Begin Menu demo 
  27.          Caption         =   "-"
  28.          Index           =   2
  29.       End
  30.       Begin Menu demo 
  31.          Caption         =   "&Examples"
  32.          Index           =   3
  33.       End
  34.    End
  35.    Begin Menu mnu 
  36.       Caption         =   "&Help"
  37.       Index           =   1
  38.       Begin Menu help 
  39.          Caption         =   "About LED"
  40.          Index           =   0
  41.       End
  42.       Begin Menu help 
  43.          Caption         =   "LED Control"
  44.          Index           =   1
  45.       End
  46.       Begin Menu help 
  47.          Caption         =   "All GMS Controls"
  48.          Index           =   2
  49.       End
  50.    End
  51.    Begin Menu mnu 
  52.       Caption         =   "&Order"
  53.       Index           =   2
  54.    End
  55.    Begin Menu mnu 
  56.       Caption         =   "E&xit"
  57.       Index           =   3
  58.    End
  59. End
  60.  
  61. Sub demo_Click (index As Integer)
  62.  
  63.     Select Case index
  64.         Case 0
  65.             ledcontrol.Show
  66.         Case 1
  67.             ledstyles.Show
  68.         Case 3
  69.             Examples.Show
  70.     End Select
  71.  
  72. End Sub
  73.  
  74. Sub help_Click (index As Integer)
  75.  
  76.     Select Case index
  77.         Case 0 'about
  78.             About.Show
  79.         Case 1 'control
  80.             i = Shell("WINHELP led.hlp", 1)
  81.         Case 2 'library
  82.             i = Shell("WINHELP instrmlb.hlp", 1)
  83.     End Select
  84.     
  85. End Sub
  86.  
  87. Sub MDIForm_Load ()
  88.  
  89.     About.Show
  90.  
  91. End Sub
  92.  
  93. Sub mnu_Click (index As Integer)
  94.  
  95.     If index = 2 Then i = Shell("WINHELP order.hlp", 1)
  96.     If index = 3 Then End
  97.  
  98. End Sub
  99.  
  100.